Chip 2004 September (Special)/Chip-Special_2004-09_Digitalni-Hudba.bin/servis/invest/dskinv.exe/{app}/di.exe/0/RCDATA/TDISKVIEW/TDISKVIEW.txt

Text File | 2003-05-02 | 16KB | 713 lines

object diskview: Tdiskview
  Left = 225
  Top = 209
  Width = 800
  Height = 555
  HelpContext = 1
  Caption = 'e'
  Color = clBtnFace
  Constraints.MinHeight = 400
  Constraints.MinWidth = 796
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = True
  ShowHint = True
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHelp = FormHelp
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object sectorLabel: TLabel
    Left = 10
    Top = 422
    Width = 39
    Height = 16
    Caption = '&Sector'
    FocusControl = StartSector
  end
  object clustoutputlabel: TLabel
    Left = 208
    Top = 14
    Width = 406
    Height = 15
    Caption = 'SOfs  Hex                       Text               Decimal'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object startLabel: TLabel
    Left = 136
    Top = 425
    Width = 69
    Height = 16
    Caption = 'Start of disk'
  end
  object endLabel: TLabel
    Left = 312
    Top = 425
    Width = 177
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'End of disk'
  end
  object Viewlabel: TLabel
    Left = 11
    Top = 104
    Width = 98
    Height = 16
    Caption = 'Disk information:'
  end
  object statuslabel: TLabel
    Left = 208
    Top = 401
    Width = 409
    Height = 16
    Alignment = taRightJustify
    AutoSize = False
    Caption = 'statuslabel'
  end
  object flistlabel: TLabel
    Left = 210
    Top = 14
    Width = 476
    Height = 15
    Caption =
      'DOS name  Ext  Attr           Long name                size  Mod' +
      'Date'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    ParentFont = False
  end
  object drivelabel: TLabel
    Left = 11
    Top = 57
    Width = 79
    Height = 16
    Caption = 'Drive to view:'
  end
  object Memo: TMemo
    Left = 11
    Top = 120
    Width = 191
    Height = 65
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 3
    OnEnter = MemoEnter
    OnExit = MemoExit
  end
  object StartSector: TSpinEdit
    Left = 10
    Top = 441
    Width = 103
    Height = 26
    MaxValue = 0
    MinValue = 0
    TabOrder = 6
    Value = 0
    OnChange = StartSectorChange
  end
  object ScrollBar: TScrollBar
    Left = 120
    Top = 444
    Width = 381
    Height = 22
    LargeChange = 10
    PageSize = 0
    TabOrder = 7
    OnChange = ScrollBarChange
  end
  object quitbutton: TButton
    Left = 690
    Top = 435
    Width = 73
    Height = 33
    Hint = 'Quit this program'
    Caption = '&Quit'
    TabOrder = 15
    OnClick = quitbuttonClick
  end
  object GroupBox2: TGroupBox
    Left = 10
    Top = 6
    Width = 178
    Height = 44
    Caption = 'View'
    Constraints.MinWidth = 176
    TabOrder = 1
    object secrad: TRadioButton
      Left = 17
      Top = 16
      Width = 73
      Height = 17
      Hint = 'Show sectors of the whole disk'
      Caption = 'Disk'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = secradClick
    end
    object Dirrad: TRadioButton
      Left = 81
      Top = 16
      Width = 88
      Height = 17
      Hint = 'Show data from specific files and directories'
      Caption = 'Directories'
      Checked = True
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = True
      OnClick = DirradClick
    end
  end
  object legendGroupBox: TGroupBox
    Left = 10
    Top = 412
    Width = 351
    Height = 57
    TabOrder = 8
    object Label1: TLabel
      Left = 50
      Top = 16
      Width = 71
      Height = 16
      Caption = 'Normal files'
    end
    object Label2: TLabel
      Left = 50
      Top = 32
      Width = 134
      Height = 16
      Caption = 'Names of deleted files'
    end
    object Label3: TLabel
      Left = 236
      Top = 32
      Width = 103
      Height = 16
      Caption = 'Deleted directory'
    end
    object Label4: TLabel
      Left = 236
      Top = 16
      Width = 65
      Height = 16
      Caption = 'Directories'
    end
    object normalfilespanel: TPanel
      Left = 10
      Top = 16
      Width = 33
      Height = 14
      Color = clBtnText
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 10
      Top = 32
      Width = 33
      Height = 15
      Color = clRed
      TabOrder = 1
    end
    object Panel3: TPanel
      Left = 196
      Top = 32
      Width = 33
      Height = 14
      Color = clMaroon
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 196
      Top = 16
      Width = 33
      Height = 15
      TabOrder = 3
    end
  end
  object refreshbutton: TButton
    Left = 209
    Top = 400
    Width = 67
    Height = 19
    Hint = 'Refresh the file list'
    Caption = '&Refresh'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -10
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    Visible = False
    OnClick = refreshbuttonClick
  end
  object viewbutton: TButton
    Left = 371
    Top = 435
    Width = 78
    Height = 33
    Hint = 'View raw file data of selected file'
    Caption = '&View'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = viewbuttonClick
  end
  object unerasebutton: TButton
    Left = 461
    Top = 435
    Width = 84
    Height = 33
    Hint = 'Demonstrate file undeletion (not for recovering important files)'
    Caption = '&Undelete'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = unerasebuttonClick
  end
  object Helpbutton: TButton
    Left = 594
    Top = 435
    Width = 75
    Height = 33
    Hint = 'Help on how to use this program'
    Caption = '&Help'
    TabOrder = 14
    OnClick = HelpbuttonClick
  end
  object st: TFolderTree
    Left = 11
    Top = 200
    Width = 188
    Height = 201
    Active = True
    FolderOptions = []
    OnChange = stChange
    HideSelection = False
    Indent = 19
    TabOrder = 4
  end
  object Searchbutton: TButton
    Left = 664
    Top = 400
    Width = 99
    Height = 26
    Hint = 'Search the disk'
    Caption = '&Search'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -10
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = SearchbuttonClick
  end
  object searchpb: TProgressBar
    Left = 208
    Top = 417
    Width = 449
    Height = 9
    Min = 0
    Max = 100
    Smooth = True
    TabOrder = 16
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 471
    Width = 792
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object grid: TSortGrid
    Left = 216
    Top = 88
    Width = 545
    Height = 313
    ColCount = 9
    DefaultRowHeight = 21
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goThumbTracking]
    TabOrder = 0
    OnClick = gridClick
    OnDblClick = gridDblClick
    OnKeyDown = gridKeyDown
    OnMouseDown = gridMouseDown
    OnMouseUp = gridMouseUp
    OnSelectCell = gridSelectCell
    SearchOptions.Filtered = False
    SearchOptions.CaseSensitive = False
    SortOptions.SortStyle = ssAutomatic
    SortOptions.SortCaseSensitive = False
    SortOptions.SortCol = 0
    SortOptions.SortDirection = sdAscending
    PrintOptions.Copies = 0
    PrintOptions.FromRow = 0
    PrintOptions.ToRow = 0
    PrintOptions.PreviewPage = 0
    MultiSelect = True
    HideText = False
    AlignmentHorz = taLeftJustify
    AlignmentVert = taTopJustify
    BevelStyle = cbNone
    ProportionalScrollBars = False
    ExtendedKeys = False
    UpdateOnSizeChange = False
    OnGetCellFormat = gridGetCellFormat
    OnColumnWidthsChanged = gridColumnWidthsChanged
    OnBeginSort = gridBeginSort
    OnEndSort = gridEndSort
  end
  object drivecombobox: TDriveComboBox
    Left = 11
    Top = 73
    Width = 191
    Height = 22
    Hint = 'Select the drive to clean'
    TabOrder = 2
    OnChange = drivecomboboxChange
  end
  object output: TRichEdit
    Left = 216
    Top = 32
    Width = 545
    Height = 57
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Courier New'
    Font.Style = []
    HideSelection = False
    Lines.Strings = (
      'output')
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 5
    WordWrap = False
    OnMouseDown = outputMouseDown
  end
  object viewclusterbutton: TButton
    Left = 216
    Top = 400
    Width = 99
    Height = 26
    Hint = 'View the current cluster'
    Caption = '&View cluster'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -10
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = viewclusterbuttonClick
  end
  object PopupMenu: TPopupMenu
    Left = 552
    object Viewcontents1: TMenuItem
      Caption = 'View raw file contents'
      OnClick = outputDblClick
    end
    object openentry: TMenuItem
      Caption = 'Open'
      OnClick = openentryClick
    end
    object Properties1: TMenuItem
      Caption = 'Properties'
      OnClick = Properties1Click
    end
    object Erase1: TMenuItem
      Caption = 'Erase'
      Visible = False
      OnClick = eraseselectedbuttonClick
    end
    object Undelete1: TMenuItem
      Caption = 'Undelete'
      Visible = False
      OnClick = unerasebuttonClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object crc32: TMenuItem
      Caption = 'CRC-32'
      OnClick = crc32Click
    end
    object md5: TMenuItem
      Caption = 'MD5 128 Hash'
      OnClick = md5Click
    end
    object RipeMD128: TMenuItem
      Caption = 'RipeMD-128 Hash'
      OnClick = RipeMD128Click
    end
    object ripe160: TMenuItem
      Caption = 'RipeMD-160 Hash'
      OnClick = ripe160Click
    end
    object sha1: TMenuItem
      Caption = 'SHA-1 Hash'
      OnClick = sha1Click
    end
    object sha256: TMenuItem
      Caption = 'SHA-256 Hash'
      OnClick = sha256Click
    end
    object sha384: TMenuItem
      Caption = 'SHA-384 Hash'
      OnClick = sha384Click
    end
    object sha512: TMenuItem
      Caption = 'SHA-512 Hash'
      OnClick = sha512Click
    end
    object N6: TMenuItem
      Caption = '-'
    end
    object refreshitem: TMenuItem
      Caption = 'Refresh'
      OnClick = refreshitemClick
    end
  end
  object br: TdfsBrowseDirectoryDlg
    ShowSelectionInStatus = False
    Left = 600
  end
  object MainMenu1: TMainMenu
    OnChange = MainMenu1Change
    Left = 480
    object File1: TMenuItem
      Caption = '&File'
      object undeleteentry: TMenuItem
        Caption = '&Undelete'
        HelpContext = 7
        OnClick = unerasebuttonClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = '&Exit'
        OnClick = Exit1Click
      end
    end
    object viewmenu: TMenuItem
      Caption = 'View'
      object Diskentry: TMenuItem
        Caption = 'Disk'
        HelpContext = 2
        OnClick = DiskentryClick
      end
      object directoriesentry: TMenuItem
        Caption = 'Directories'
        HelpContext = 2
        OnClick = directoriesentryClick
      end
      object sep: TMenuItem
        Caption = '-'
      end
      object bootsectorentry: TMenuItem
        Caption = 'Boot sector'
        OnClick = bootsectorentryClick
      end
      object FAT1entry: TMenuItem
        Caption = 'FAT 1'
        OnClick = FAT1entryClick
      end
      object fat2entry: TMenuItem
        Caption = 'FAT 2'
        OnClick = fat2entryClick
      end
      object rootdirentry: TMenuItem
        Caption = 'Root directory'
        OnClick = rootdirentryClick
      end
      object mftentry: TMenuItem
        Caption = 'MFT'
        OnClick = mftentryClick
      end
      object mftzoneentry: TMenuItem
        Caption = 'MFT Zone'
        OnClick = mftzoneentryClick
      end
    end
    object toolsentry: TMenuItem
      Caption = '&Tools'
      object searchentry: TMenuItem
        Caption = '&Search Disk'
        HelpContext = 5
        ShortCut = 16454
        OnClick = searchentryClick
      end
      object wipenamesentry: TMenuItem
        Caption = 'Wipe all deleted file names'
        OnClick = wipenamesentryClick
      end
      object recoverallentry: TMenuItem
        Caption = '&Recover/Undelete all deleted files'
        Hint = 'Recover all deleted files on disk'
        OnClick = recoverallentryClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      object helpcontentsentry: TMenuItem
        Caption = '&Help contents'
        ShortCut = 112
        OnClick = helpcontentsentryClick
      end
      object HowtouseHelp1: TMenuItem
        Caption = 'How to use Help'
        OnClick = HowtouseHelp1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object cleanentry: TMenuItem
        Bitmap.Data = {
          8E000000424D8E00000000000000760000002800000006000000060000000100
          0400000000001800000000000000000000001000000010000000000000000000
          8000008000000080800080000000800080008080000080808000C0C0C0000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFE2F000
          0F38F0000FCAF0000F81F0000F35FFFFFF9A}
        Caption = 'How to clean your disk'
        HelpContext = 3
        OnClick = cleanentryClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object hexconverterentry: TMenuItem
        Caption = 'Hex Converter'
        HelpContext = 6
        OnClick = hexconverterentryClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object aboutitem: TMenuItem
        Caption = 'About this program'
        OnClick = aboutitemClick
      end
    end
  end
  object DirMon1: TDirMon
    NotifyFilter = [dmcFileName, dmcDirName, dmcAttributes, dmcSize]
    OnDirChange = DirMon1DirChange
    Nested = False
    Left = 368
  end
  object Timer: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = TimerTimer
    Left = 704
  end
  object Notify: TDiskChangeNotify
    WatchSubTree = False
    OnDiskChange = NotifyDiskChange
    NotifyFilter = [FILE_NAME, DIR_NAME, ATTRIBUTES, SIZE, LAST_WRITE]
    Left = 304
  end
  object DCP_md51: TDCP_md5
    Id = 16
    Algorithm = 'MD5'
    HashSize = 128
    Left = 768
    Top = 8
  end
  object DCP_ripemd1281: TDCP_ripemd128
    Id = 27
    Algorithm = 'RipeMD-128'
    HashSize = 128
    Left = 768
    Top = 40
  end
  object DCP_ripemd1601: TDCP_ripemd160
    Id = 10
    Algorithm = 'RipeMD-160'
    HashSize = 160
    Left = 768
    Top = 72
  end
  object DCP_sha11: TDCP_sha1
    Id = 2
    Algorithm = 'SHA1'
    HashSize = 160
    Left = 768
    Top = 104
  end
  object DCP_sha2561: TDCP_sha256
    Id = 28
    Algorithm = 'SHA256'
    HashSize = 256
    Left = 768
    Top = 136
  end
  object DCP_sha3841: TDCP_sha384
    Id = 29
    Algorithm = 'SHA384'
    HashSize = 384
    Left = 768
    Top = 168
  end
  object DCP_sha5121: TDCP_sha512
    Id = 30
    Algorithm = 'SHA512'
    HashSize = 512
    Left = 768
    Top = 200
  end
  object DCP_tiger1: TDCP_tiger
    Id = 18
    Algorithm = 'Tiger'
    HashSize = 192
    Left = 768
    Top = 232
  end
  object DCP_sha12: TDCP_sha1
    Id = 2
    Algorithm = 'SHA1'
    HashSize = 160
    Left = 768
    Top = 264
  end
end